00200	<    *****  NOTEY  ***** 
00400	
00600	<READ THIS INTO SOUND GENERATING PROGRAM WHEN USING
00800	<NOTE LISTS PREPARED BY 'SCORE' PROGRAMS.
01000	
01200	EXTERNAL FUNCTION SYNTH(ARRAY A),SEE(ARRAY B),READIN(ARRAY C),
01400	SEG(ARRAY D), DUR(X,Y,Z),POWER(X,Y); ARRAY F1(512);
01600	VARIABLE MAG, C,CS,D,DS,E,F,FS,G,GS,A,AS,B;
02000	C←261.62;  CS←277.18;  D←293.66;  DS←311.13;  E←329.63;
02200	F←349.23;  FS←369.99;  G←391.99;  GS←415.31;
02400	A←440;    AS←466.16;  B←493.89;
02600	
03200	
03400	<-- F1 ARRAY MUST BE FILLED FOR INST SIMP TO PLAY;
03600	SYNTH(F1);1 1 999
03800	SRATE←10000;MAG←512/SRATE;SPEED←3;NCHNS←1;
04000	
04200	COMPILE; INSTRUMENT SIMP;
04400	ZOSCIL(P4,MAG*P3,P5);OUTA←OUTA+U1;
04600	END; FINISH;
04800	
05000	PLAY;SIMP 0 .2 A 1200 F1;FINISH;PRINT(LSBUF);